home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / crsr_up.omed < prev    next >
Text File  |  1996-06-02  |  624b  |  15 lines
  1. /* range crsr up */
  2. rn_isranged var rn_state
  3. if ~rn_state then ed_advanceline up
  4. else do
  5.     ed_advanceline up
  6.     ed_getcurrline var currline
  7.     rn_getrangestartline var rnstartline    
  8.     rn_getrangeendline var rnendline
  9.     ed_getcurrtrack var currtrack
  10.     if currline < rnstartline then 'rn_setrange starttrack' currtrack 'startline' currline 'endtrack' currtrack 'endline' rnendline
  11.     else do
  12.         if currline > rnendline then 'rn_setrange starttrack' currtrack 'startline' rnendline 'endtrack' currtrack 'endline' currline            
  13.         else 'rn_setrange starttrack' currtrack 'startline' rnstartline 'endtrack' currtrack 'endline' currline
  14.     end
  15. end